object Form27: TForm27 Left = 337 Top = 134 BorderStyle = bsNone Caption = 'Arsa Ve Arazi Listesi' ClientHeight = 417 ClientWidth = 593 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Image1: TImage Left = 0 Top = 0 Width = 593 Height = 417 Picture.Data = {} Stretch = True OnMouseDown = Image1MouseDown end object Label1: TLabel Left = 32 Top = 264 Width = 42 Height = 13 Caption = 'Semt Ad�' Transparent = True end object Label2: TLabel Left = 152 Top = 278 Width = 53 Height = 13 Caption = 'Fiyat Aral���' Transparent = True end object Label3: TLabel Left = 32 Top = 300 Width = 70 Height = 13 Caption = '�lk Fiyat De�eri' Transparent = True end object Label4: TLabel Left = 32 Top = 334 Width = 84 Height = 13 Caption = '�kinci Fiyat De�eri' Transparent = True end object Label5: TLabel Left = 376 Top = 282 Width = 28 Height = 13 Caption = 'Aral���' Transparent = True end object Label6: TLabel Left = 248 Top = 304 Width = 43 Height = 13 Caption = '�lk De�er' Transparent = True end object Label7: TLabel Left = 248 Top = 336 Width = 57 Height = 13 Caption = '�kinci De�er' Transparent = True end object Image2: TImage Left = 352 Top = 278 Width = 13 Height = 15 AutoSize = True Picture.Data = {} Transparent = True end object Image3: TImage Left = 56 Top = 358 Width = 151 Height = 38 AutoSize = True Picture.Data = {} Visible = False end object Image4: TImage Left = 224 Top = 358 Width = 151 Height = 38 AutoSize = True Picture.Data = {} Visible = False end object Image5: TImage Left = 392 Top = 358 Width = 151 Height = 38 AutoSize = True Picture.Data = {} Visible = False end object Label8: TLabel Left = 64 Top = 368 Width = 137 Height = 25 Alignment = taCenter AutoSize = False Caption = 'Bul' Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True OnMouseDown = Label8MouseDown OnMouseUp = Label8MouseUp end object Label9: TLabel Left = 232 Top = 368 Width = 137 Height = 25 Alignment = taCenter AutoSize = False Caption = 'T�m�n� G�ster' Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True OnMouseDown = Label9MouseDown OnMouseUp = Label9MouseUp end object Label10: TLabel Left = 400 Top = 368 Width = 137 Height = 25 Alignment = taCenter AutoSize = False Caption = 'Yazd�r' Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True OnMouseDown = Label10MouseDown OnMouseUp = Label10MouseUp end object Label11: TLabel Left = 440 Top = 248 Width = 116 Height = 13 Caption = 'Arama Se�ene�ini Se�in' Transparent = True end object Image6: TImage Left = 544 Top = 40 Width = 30 Height = 28 AutoSize = True Picture.Data = {} OnMouseDown = Image6MouseDown OnMouseUp = Image6MouseUp end object Image7: TImage Left = 544 Top = 40 Width = 30 Height = 28 AutoSize = True Picture.Data = {} Visible = False end object Label12: TLabel Left = 120 Top = 313 Width = 38 Height = 13 Caption = 'Label12' Transparent = True Visible = False end object Label13: TLabel Left = 120 Top = 348 Width = 38 Height = 13 Caption = 'Label13' Transparent = True Visible = False end object Label14: TLabel Left = 248 Top = 264 Width = 31 Height = 13 Caption = 'Durum' Transparent = True end object DBGrid1: TDBGrid Left = 40 Top = 72 Width = 513 Height = 169 DataSource = DataSource1 Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit] ReadOnly = True TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] OnDblClick = DBGrid1DblClick Columns = < item Expanded = False FieldName = 'Semt' Width = 113 Visible = True end item Expanded = False FieldName = 'Fiyati' Width = 70 Visible = True end item Expanded = False FieldName = 'Metre2' Width = 60 Visible = True end item Expanded = False FieldName = 'Ada' Width = 66 Visible = True end item Expanded = False FieldName = 'Parsel' Width = 60 Visible = True end item Expanded = False FieldName = 'Pafta' Width = 54 Visible = True end item Expanded = False FieldName = 'Imar' Width = 62 Visible = True end> end object Edit1: TEdit Left = 120 Top = 292 Width = 121 Height = 21 MaxLength = 17 TabOrder = 1 OnExit = Edit1Exit OnKeyPress = Edit1KeyPress OnKeyUp = Edit1KeyUp end object Edit2: TEdit Left = 120 Top = 326 Width = 121 Height = 21 MaxLength = 17 TabOrder = 2 OnExit = Edit2Exit OnKeyPress = Edit1KeyPress OnKeyUp = Edit2KeyUp end object Edit3: TEdit Left = 312 Top = 296 Width = 121 Height = 21 MaxLength = 10 TabOrder = 3 OnKeyPress = Edit1KeyPress end object Edit4: TEdit Left = 312 Top = 328 Width = 121 Height = 21 MaxLength = 10 TabOrder = 4 OnKeyPress = Edit1KeyPress end object DBLookupComboBox1: TDBLookupComboBox Left = 120 Top = 256 Width = 121 Height = 21 KeyField = 'Semtler' ListField = 'Semtler' ListSource = DataSource2 TabOrder = 5 end object lb1: TListBox Left = 440 Top = 261 Width = 113 Height = 97 Hint = 'Se�ti�ini Se�ene�e G�re Arama Yapma' ItemHeight = 13 Items.Strings = ( 'Semt Ad�na G�re' 'Fiyat Aral���na G�re' 'Metre Aral���na G�re' 'Semt ve Fiyata G�re' 'Semt ve Metreye G�re' 'Fiyat ve Metreye G�re' 'T�m�ne G�re') ParentShowHint = False ShowHint = True TabOrder = 6 end object ComboBox1: TComboBox Left = 312 Top = 256 Width = 121 Height = 21 ItemHeight = 13 TabOrder = 7 Text = 'T�m�' Items.Strings = ( 'T�m�' 'Sat�ld�' 'Sat�lmad�' 'Kiraland�' 'Kiralanmad�') end object DataSource1: TDataSource DataSet = Query1 Left = 24 Top = 16 end object DataSource2: TDataSource DataSet = Table2 Left = 184 Top = 24 end object Table2: TTable Active = True TableName = 'semtler.db' Left = 216 Top = 24 object Table2No: TAutoIncField FieldName = 'No' ReadOnly = True end object Table2Semtler: TStringField FieldName = 'Semtler' Size = 15 end end object Query1: TQuery Active = True AutoRefresh = True SQL.Strings = ( 'select * from arsa') Left = 80 Top = 24 object Query1No: TIntegerField FieldName = 'No' end object Query1Semt: TStringField FieldName = 'Semt' end object Query1Ada: TStringField FieldName = 'Ada' end object Query1Parsel: TStringField FieldName = 'Parsel' end object Query1Pafta: TStringField FieldName = 'Pafta' end object Query1Imar: TStringField FieldName = 'Imar' end object Query1Metre2: TStringField FieldName = 'Metre2' Size = 10 end object Query1Fiyati: TCurrencyField FieldName = 'Fiyati' end object Query1Isim: TStringField FieldName = 'Isim' end object Query1Doviz: TStringField FieldName = 'Doviz' end object Query1Durum: TStringField FieldName = 'Durum' end object Query1Telefon: TStringField FieldName = 'Telefon' end object Query1IsTelefonu: TStringField FieldName = 'IsTelefonu' end object Query1CepTelefonu: TStringField FieldName = 'CepTelefonu' end object Query1Notlar: TMemoField FieldName = 'Notlar' BlobType = ftMemo Size = 100 end object Query1Adres: TMemoField FieldName = 'Adres' BlobType = ftMemo Size = 100 end end end